﻿
Partial Class Mantenimientos_frmMantenimientoGlobales
    Inherits System.Web.UI.Page
    'Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    'Introducir aquí el código de usuario para inicializar la página
    '    If Not Page.IsPostBack Then
    '        Dim sError As String
    '        Dim oNegReCamposGlobales As New srvNegReCamposGlobales.srvNegReCamposGlobales

    '        Dim rsCampos As String()

    '        If oNegReCamposGlobales.fnListarTodo(1, "", Me.txtProcesoPadre.Text, Me.txtProcesoAprobTecnica.Text, Me.txtProcesoAtencionCompras.Text, rsCampos, sError) Then
    '            Me.txtCampo1.Text = rsCampos(0)
    '            Me.txtCampo2.Text = rsCampos(1)
    '            Me.txtCampo3.Text = rsCampos(2)
    '            Me.txtCampo4.Text = rsCampos(3)
    '            Me.txtCampo5.Text = rsCampos(4)
    '        Else
    '            CreateLogFiles()
    '            ErrorLog(Server.MapPath("Logs/ErrorLog"), sError)
    '            lblMensaje.Text = "Ocurrio un error al cargar la información, consulte el Log."
    '        End If

    '    End If
    'End Sub

    'Private Sub imgGuardar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgguardar.Click
    '    If Not Page.IsValid Then
    '        Exit Sub
    '    End If
    '    Dim sError As String
    '    Dim oNegReCamposGlobales As New srvNegReCamposGlobales.srvNegReCamposGlobales
    '    If Not oNegReCamposGlobales.fnInsertar(1, "", Me.txtCampo1.Text, Me.txtCampo2.Text, Me.txtCampo3.Text, Me.txtCampo4.Text, Me.txtCampo5.Text, _
    '    Me.txtProcesoPadre.Text, Me.txtProcesoAprobTecnica.Text, Me.txtProcesoAtencionCompras.Text, sError) Then
    '        Me.lblMensaje.Text = "Ocurrió un error al actualizar la información, consulte el Log."
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), sError)
    '    End If
    'End Sub
End Class
